home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / program / prtfrm51.zip / FRMSRC.ZIP / UNITMAIN.PAS < prev   
Pascal/Delphi Source File  |  1996-06-22  |  4KB  |  158 lines
  1. unit Unitmain;
  2.  
  3. interface
  4.  
  5. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
  6.   StdCtrls, Fdemo01, FDemo02, FDemo03, FDemo04, FDemo05, FDemo06, FDemo07,
  7.   FDemo08, FDemo09, FDemo10, FDemo11, FDemo12, FDemo13, FDemo14, FDemo15,
  8.   FDemo16, FDemo17, FDemo18, ExtCtrls, Dialogs;
  9.  
  10. type
  11.   TMainDialog = class(TForm)
  12.     Label1: TLabel;
  13.     Panel1: TPanel;
  14.     Bevel1: TBevel;
  15.     ListBox1: TListBox;
  16.     View: TButton;
  17.     Exit: TButton;
  18.     Printer: TButton;
  19.     PrinterSetupDialog1: TPrinterSetupDialog;
  20.     Printit: TLabel;
  21.     Label2: TLabel;
  22.     Label3: TLabel;
  23.     procedure ExitClick(Sender: TObject);
  24.     procedure ViewClick(Sender: TObject);
  25.     procedure PrinterClick(Sender: TObject);
  26.     procedure ListBox1DblClick(Sender: TObject);
  27.   private
  28.     { Private declarations }
  29.   public
  30.     { Public declarations }
  31.   end;
  32.  
  33. var
  34.   MainDialog: TMainDialog;
  35.  
  36. implementation
  37.  
  38. {$R *.DFM}
  39.  
  40. procedure TMainDialog.ExitClick(Sender: TObject);
  41. begin
  42.     Close;
  43. end;
  44.  
  45. procedure TMainDialog.ViewClick(Sender: TObject);
  46. begin
  47.     if ListBox1.ItemIndex < 0 then
  48.     MessageDlg('Please select an option from the List Box', mtInformation,
  49.       [mbOk], 0);
  50.  
  51.     if (ListBox1.ItemIndex >= 0) then begin
  52.        case ListBox1.ItemIndex of
  53.        0: begin
  54.            Form01 := TForm01.Create (Application);
  55.           Form01.ShowModal;
  56.           Form01.Free;
  57.           end;
  58.        1: begin
  59.            Form02 := TForm02.Create (Application);
  60.           Form02.ShowModal;
  61.           Form02.Free;
  62.           end;
  63.        2: begin
  64.            Form03 := TForm03.Create (Application);
  65.           Form03.ShowModal;
  66.           Form03.Free;
  67.           end;
  68.        3: begin
  69.            Form04 := TForm04.Create (Application);
  70.           Form04.ShowModal;
  71.           Form04.Free;
  72.           end;
  73.        4: begin
  74.            Form05 := TForm05.Create (Application);
  75.           Form05.ShowModal;
  76.           Form05.Free;
  77.           end;
  78.        5: begin
  79.            Form06 := TForm06.Create (Application);
  80.           Form06.ShowModal;
  81.           Form06.Free;
  82.           end;
  83.        6: begin
  84.            Form07 := TForm07.Create (Application);
  85.           Form07.ShowModal;
  86.           Form07.Free;
  87.           end;
  88.        7: begin
  89.            Form08 := TForm08.Create (Application);
  90.           Form08.ShowModal;
  91.           Form08.Free;
  92.           end;
  93.        8: begin
  94.            Form09 := TForm09.Create (Application);
  95.           Form09.ShowModal;
  96.           Form09.Free;
  97.           end;
  98.        9: begin
  99.            Form10 := TForm10.Create (Application);
  100.           Form10.ShowModal;
  101.           Form10.Free;
  102.           end;
  103.       10: begin
  104.            Form11 := TForm11.Create (Application);
  105.           Form11.ShowModal;
  106.           Form11.Free;
  107.           end;
  108.       11: begin
  109.            Form12 := TForm12.Create (Application);
  110.           Form12.ShowModal;
  111.           Form12.Free;
  112.           end;
  113.       12: begin
  114.            Form13 := TForm13.Create (Application);
  115.           Form13.ShowModal;
  116.           Form13.Free;
  117.           end;
  118.       13: begin
  119.            Form14 := TForm14.Create (Application);
  120.           Form14.ShowModal;
  121.           Form14.Free;
  122.           end;
  123.       14: begin
  124.            Form15 := TForm15.Create (Application);
  125.           Form15.ShowModal;
  126.           Form15.Free;
  127.           end;
  128.       15: begin
  129.            Form16 := TForm16.Create (Application);
  130.           Form16.ShowModal;
  131.           Form16.Free;
  132.           end;
  133.       16: begin
  134.            Form17 := TForm17.Create (Application);
  135.           Form17.ShowModal;
  136.           Form17.Free;
  137.           end;
  138.       17: begin
  139.            Form18 := TForm18.Create (Application);
  140.           Form18.ShowModal;
  141.           Form18.Free;
  142.           end;
  143.        end;
  144.    end;
  145. end;
  146.  
  147. procedure TMainDialog.PrinterClick(Sender: TObject);
  148. begin
  149.     PrinterSetupDialog1.Execute;
  150. end;
  151.  
  152. procedure TMainDialog.ListBox1DblClick(Sender: TObject);
  153. begin
  154.     ViewClick(Sender);
  155. end;
  156.  
  157. end.
  158.